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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


*® 
:® * 
*® ® 
** * 
‘* ® 
*® ® 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
s® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. . 
** * 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. : 
** & 
** ae 
:* ® 
:* * 
** ® 
® ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


IT 
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Facility: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 


Abstract: 


This_is a bunch of interface routines between 
rms-32 written in mars and rms-32 isam in bliss. 


Environment: 
VAX/VMS OPERATING SYSTEM 
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o Author: W. Koenig creation date: 4-APR-1978 

09 MODIFIED BY: 

00 v03-025 puTor7s ague 22-Jun-1984 

00 Check for UFO - RMSRND _DEV to avoid prologue 

oS processing. 

00 V03-024 DASO001 David Solomon 25-Mar-1984 

36 Fix broken branches. 

00 v03-023 pepoot7 nald G. Blai 02-Mar-1984 

83 ayyece ate full- Fm FIB to support access mode protected 
es. 

00 : 
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v03-022 $HZ0001 tephen H. Zalewski 06-Feb-1983 
Modify RMSRND_DEV to return false if device is either 
| 


vw 
sooo 


Bete Se Se Ge Ge Ge Se Se Se Ge Ge Ge Se Ge Ge Se Ge Ge Se Ge Ge Ge Fe Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


foreign or non random access (tape). This prevents copy from 
attempting to read the prologue from a foreign disk (bugcheck). 


v03-021 MCNOO01 Maria del ¢- Nasr 1 afi ba 
Modify RPSIALLO3, RMSIKEYOS, and RMS$ISUMO3 routines to 
push parameters in the stack to use general Linkages. 


RASO133 Ron Schaefer 16-Mar-1983 
Add $XABCXRDEF macro to fix up RASO132. | 


v03-019 RASO132 Ron Schaefer 15-Mar-1983 
Change SRMSRDEF references to S$RJRDEF. 
Make XCONNO3_ARGS and XABCRE_ARGS local. 
Fix bug in XABCRE_ARGS by adding end of table marker. 


| 
VO3-018 TMKO004 Todd M. Katz 24-F eb-1983 | 
| 


v03-020 


od 
IRBSV_UPDATE is not being cleared on pupesayent SGET/SFINDs. 
Make sure this bit is cleared within RM$GET3 and RMSFIND3. 


V03-017 RASO124 Ron Schaefer 15-Feb-1983 
Change MCNO007 to ignore RMSXAB_SCAN for S$CREATE on 
record-oriented devices opened for block 1/0. 
This prevents a subsequent bugcheck trying to access the prolog. 


v03-016 TMKO003 Todd M. Katz 08-Jan-1983 
Add support for Recovery Unit Journalling and RU ROLLBACK 
pecovery of ISAM Files. Modifications have been made to 


BSS SSS SS SS SSS SSS SS SSS 2SS2R5 
COOCOCOCCOCOOOCOOOCOCOOOCoOoOOoOOooooO 

SOOCCOCOCOCOOOCOCOOOSOOOCOOOOOOOOOCOoO 
pale lelelelelelelelelelololeleleloleleleleleleololololoa) 


Deailocate the key buffers and related buffer and call 
rm$discommon (to deallocate the IRAB) on restart error. 


v03-011 MCNO009 — Maria del C. Nasr 02-Dec-1982 
Add routine RMSRND_DEV to be called by RMSCREATE3B. 
It determines if the device where a file is being created 
is disk or tape. Do not do display after creating 


PWN OOD NAME WIN  O ODNAU EWN 0 OO NAU EWN SO OO NAME WN" OOONOUE Wn 
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o 
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o 
kk st a 
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RMSF IND RMSUPDATE3, RM3PUT3, and RMSDELETES. These | 

0000 modifications are basically all the same. Within these routines 
0000 RMS first checks to see whether this operation is taking place | 
0000 as part of the ROLLBACK Recovery of a prematurely terminated 
0000 or aborted Recovery Unit. so, then then in each case the 
0000 ISAM RU ROLLBACK routine, RMSRU_RECOVER is called with the 
0000 speretion as the sole input parameter. When control returns, | 
48 the recovery operation completes by calling RMSEXRMS. 
0000 v03-015 RASO118 Ron Schaefer 18-Jan-1983 | 
0000 Change MCNO007 to ignore errors returned by RM$XAB_SCAN 
bu09 on the implicit SDISPLAY from S$CREATE. 
0000 v03-014 TMKO002 Todd M. Katz 12-Jan-1983 
44 Rake 8 change to RMSDELETE3. Change a CLRL (of IRB$W_UDR_ID) to 
00 P 
$009 v03-013 RASO109 Ron Schaefer 15-Dec-1982 
OS Add $XABxxxDEF references needed by MCNO007. 
O60 V03-012 LJA0044 Laurie J. Anderson 7-Dec-1982 
000 
: 

00 

8 0 


SOOCoooocooeo 


oo 
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indexed file in magtape since no prologue is written. 
v03-010 MCNO008 Paris del C. Nasr 01-Dec-1982 
In routine RMSEXTENDS, calculate total allocation for 
given area and store in AREASL_TOTAL_ALLOC. 
V03-009 MCNO007 Maria del C. Nasr 01-Dec-1982 
Add an implicit display of the key, allocation, and 
summary XABs after SCREATE. 


v03-008 LJA0039 Laurie J. Anderson 8-Nov-1982 


Add a call to XAB_SCAN for restoring NRP for ISAM files. 
Also, while in here ... alphabetized the modules for easier 
finding. Took out expand macro directive for SAREADEF 

v03-007 KBT0165_ Keith B. Thompson 23-Aug-1982 
Reorganize psects 

v03-006 KBT0113 Keith B. Thompson 6-Aug-1982 
Remove ref. to upd_sifb_eof 

V03-005 LJA0014 Laurie Anderson 29-Jul-1982 
Fix a truncation error. 

V03-004 KBT0104 Keith B. Thompson 19-Jul-1982 
Fix another broken branch 

v03-003 KBT0093 Keith B. Thompson 14-Jul-1982 
Fix broken branch 

v03-002 TMKO001 Todd M. Katz 17-Jun-1982 


Implement the cluster RMS next record context solution. 


When a SREWIND is done, as the NRP structure has been removed, 
zero out the next record posts tents fields (IRB$L_CUR_VBN, 
IRB$W_CUR_ID, IRBSW_CUR_COUNT, IRBS$W_POS_ID, IRBSL_POS_VBN, 
IRB$L-SIDR_VBN, IRBSL_UBR_VBN, IRB$W~UDR71D5 in the IRAB, and 
set the current a“ of reference (for next record positioning) 
field also in the IRAB (IRB$B_CUR_KREF) to that which is 
specified in the RAB. Also clear fhe current record and 
end-of-file bits. 


During a SUPDATE/S$PUT, the subfields IRB$L_PUTUP_VBN and 
RB$W_PUTUP_ID are used to retrieve the RFA of the record 
ust put or updated for use in unlocking the record. In 

addition it will only be eosesnery to unlock this primary 

data record if the bit IRABSV_UNLOCK_RP is set. What is 
important is that the internal current record, and thus the 
next record does not change because of the $PUT or SUPDATE, 
regardless of the access mode in which it is done. 


v03-001 LJA0007 Laurie Anderson 25-Mar-1982 
Change KBUFSZ to reference a macro when computing buffer 
size and make IFBSB_KBUFSZ a word, now: IFBSW_KBUFSZ. 
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Include Files: 

; (11,20]Lib.mlb and (201,10]r.mlb 

; Macros: 


De Re Be De Be es Be es Bes ee 
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@ 
m 
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SXABSUMDEF 
Equated Symbols: 


Own Storage: 
Table of XABs to be displayed after an indexed file is created. 


ABCRE_ARGS: 
-BYTE XABSC_SUM, XABSC_SUMLEN, XBCS$C_OPNSUM3 
-BYTE XABSC_KEY, XABSC_KEYLEN_V2, XBCSC_OPNKEY3 
-BYTE XABSC"ALL, XABSC_ALLLEN, XBCS$C_OPNALL3 
-BYTE 0 ; end of table 


XCONNO3_ARGS: 
-BYTE XABSC_CXR,XABSC_CXRLEN,XBCS$C_XCONNOS 
wevtTeE © ; end of table 
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RMSALLOC3 - this routine is a bliss/mars interface. called from rm3allbkt. 


Calling sequen 
Pagatt oes) 


Input A paged eb 
- address of area descriptor 
ri0 - address of internal fab 


spsteny tnputns 
Output Parameters: 
ri - start vbn 
r2 - an plus one of last vbn allocated 


Implicit Outputs: 
none 


Routine Value: 
none 


Side Effects: 
none 


steatecnty ** ; 
PUSHR #*M<R3,R4,R5,R6> 3; save registers that are clobbered by exten 


MOVZBL or iees LENGTH,R2 : size of fib 
BSBW GETSPC1 ; get space for fib 
BLBC RO $s ; if error, get out 


if the deq(area gipee? se zero then default to the higher of rtde(ifab) and 


arbktsz(area_desc) nN any case, allocate an even number of buckets. 


MOVZBL AREASB_ARBKTSZ(R7) ,RO # of vbn's to a buc 


MOVZWL AREASW_DEQ(R7) ,R2 area's default extend “auenbten 
EQ 1 if it doesn't exist 


use default run tle “quantity instead 


; allocate a fib to do extend 
| 

BN 0$ 

MOVZ2WL IFBSW_RTDEQ(R10),R2 

CMP RO 


10$: L R : senpere extend quent ity to bucket size 
BGEQU § 15$ : ess than one bucke 
MOVL RO,R2 3 use bucket size as extend quntity 

15$: CLRL R 3 quotient is quad wor 
EDIV RO,R2,AP,R3 : gheck if gurene quantity is even multiple 
TSTL R ; if remainder is non_zero, 
BEQL % ; then not even multiple ; 
SUBL2 R5,R0 3; calc number to add to reach even multiple 


wes 
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Ro A tad a SZ(R 
aM EXTE 
R6,R2 

#*A<R3,R4,R5,RO> 


1) 


1986 fo:de:28 


store 


x$Z ° 
CTE, N(R7) ,FIBSL_LOC_ADDR(RT) 
ALT 


: “do ext 


3; change output register 
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3; make extend quent ts 


egyent} ty 


: ube 1, MF near last one 


tend 


ty even multiple 
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RMSCONNECT3 = interfaces between rmsOconnect and rm3connect 


Calling sequence: 
entered via a case statement (branch) from rms$connect 


Input Parameters: 
none 


Output Parameters: 
none 

Implicit Outputs: 
none 

Routine Value: 


Side Effects: 
Mostly just passing through. 


If this is a restart connect egeret ren. then call XAB_SCAN which 
will call XCONNO3 to +g BY 


ext Record Positioning information 
into the keybuffers and 


AB for restarting. 


| 
Implicit Inputs: 
none 


RMSCONNECTS3:: 
JSB 


WOO NWSS FOS O09 WL 
ARPOPONINPININPINININ 4 9 9 PP MODOC OOOOCOOOOOOOOOOO OMMOOMmcccc 


SODWNAUNE WIN OW NAUE WN $9 OO NAUE WN (OO OONAUE WN O OONAUS 
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OOOOO000'EF 16 S$ RMSCONNECT3B 
950 €9 BLBC 
2269 3B EI BBC #IRBSV_RESTART,(R9),5$ ; If not restarting, just exit 
~~ we PUSHL 3; Save ap - needed b ee SCAN 
5¢ Al AF 43 6 MOVAB XCONNO3_ARGS,AP 3 arguments to XAB_SCA 
FF93" 3 06 BSBW RMS$XAB_SCAN 3; call XAB_SCAN to” to NRP info 
5C 8EDO 006 POPL AP 3 restore the ap 
13 50 €8 007 BLBS RO 5$ ; restart was a succ 
0000'CF 9F 007 PUSHAB W*RMSEX_N return PC to STACK (i.e., to fake a BSBW) 
9 22 4 07 BBC FIRBSY pp “TAKGE. (RY), 108 ; branch if not INDIRECT PPF 
6E 0000'CF 3 07 MOVAB W*RMSERRMS, ( 3 take structured exit 
FF7D° ; 08 W RMSDLECCNNECT 3B 3; deallocate all the ISAM related buffers 
FF7A* 31 008 BRwW RM$D 1 SCOMMON ; deallocate the IRAB and rest of stuff 
086 3: and exit with error (status in RO) 
FF77° 1 0086 5$: BRw RMSEXSUC : exit w/ success 
FF74° 31 0089 10$: BRwW RMSEX_NIRAB_SHR : exit on error 
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; RMSCREATES - interfaces between rmsOcreate and rm3create 


3 ; Calling sequence: 
entered via @ case statement (branch) from rm$create 


| 
| 
| 
| 
: Implicit Inputs: 
: none 


4 ; Input Parameters: 

4 none 

4 

4 

4 

4 

46 ; : Output Parameters: 

1 ee non 

49 ; Implicit Outputs: 

2 : none 

52; ; Routine Value: 
none 


; Side Effects: 
just passing through 


RMSCREATES:: 


do random device test here where the device characteristics bits can be defined 


PAPAS OOMUIMIIVIUIUG 
DNOAOUE WR 0 ODNAUE WIN 9 OO NAUE WIN 9 OONAU EWN O OD NOAUE WIN SO OONOUS 


AAAAAAAAAA NIAAA AA AINA NANA NNN AIA AA AWA AAA AAA NIAAA AIA AANA 
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05 £0 BBS #1FBSV_BI0,- ; 
04 22 AY IFBSB_FAC(R9) ,4$ ; any device is ok for bio access 
1¢ E1 6 BBC #DEVS$T_RND,- 
35 69 7 IFBSL_PRIM DEV(R9) ,208 
OOAC C9 D4 71 4$ CLRL IFB$L_IDX_PTR(R9) ; clear pointer to index(may not be done yet 
OOOOOO00'EF 16 7 JSB RMSCREATE3B 
05 04 A8& 19 E1 7 BBC #FABSV_CIF ,FABSL_FOP(R8) ,5$ 
50 01 OD! 7 CMPL #1,R0 ~ 3; cif and normal = open 
ef 13 7 BEQL 508" 
10 50 =€9 76 5$ BLBC RO,10$ ; if error from create, branch 
50 OD A 7 PUSHL RO. 3 Save success code returned from create 
1¢ €1 OQOA 7 BBC #DEVS 3; if not disk, do not do display 
12 69 3 7 IFBSL VeRIR’ DEV(R9), 15$ 
SC FFGA CF F 8 MOVAB KABCR RE_ARGS,A 3 prepare table address for dis Lay 
FF46" 3 0B | BSBW RMS$XAB “Stan ; do display of sum, key, and all XABs 
98 11 008 BRB 15$ 3 exit with success from create 
0 odd 008 83 10$ PUSHL RO 3; push error code in stack 
SA ¢ 4 0B MOVL R9 3 setup shored ifab for return of space inc 
FF3C* 3 BSBW RMSCLOSE3 : give back key descriptors 
OOOGO000'EF 1 C 15$: JMP RMSCREATEXIT1 : RO already in stack 
Re 20$: RMSERR DEV 
00000000‘ EF 17 C JMP RMSCLSCU 


vOe~005 


00000000" EF 
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17 8008 383 30$: JMP 


RMSOPEN_CIF 


Ig: 
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Daas: 
0DB 32 : RMSDELETE3 - this routine interfaces common delete 
7 32 : with delete for indexed file org 
DB 39 : Calling sequence: 
+4 38 ; entered via a case statement (branch) from rms$delete 
0pB 400: Input Parameters: 
Bpe8 $8) : none 
0DB 408 : Implicit Inputs: 
Se ie 
ODB 406 : Output Parameters: 
fa 
ODB 409: Implicit Outputs: 
SR 
00DB aig : Routine Value: 
ae 
00DB 415 ; Side Effects: 
0O0DB 416; just passing through 
00DB  =417 ; 
OODB 419 
0DB 439 RMSDELETE3:: 
00 €1 OODB 421 BBC #IFBSV_RU_RECVR,- ; if the current operation has been 
OB OOA1 CA O0DD $56 IFBSB_RECURFLGS(R10),5$ ; done within the context of a Recovery 
7E 05 9A QOE1 42 MOVZBL #RJR$_DELETE,-(SP) ; Unit ROLLBACK, then call the common 
00000000'EF 16 O0E4 4g JSB RMSRU-RECOVER ; RU ROLLBACK routine to direct the 
1 11 8 ; ? 2 BRB 20$ ; UNDO operation, and then go finish up 
00 69 26 €4 QOEC 159 5$ BBSC #IRBSV_PUTS_LAST,(R9),10$ ; clear the Last operation 
OOFO 428 3 was a put sequential flag. 
(000FOBO C9 De GORE «430 CeRLTRBSECUDR VBN(ROD 
00BC C9 B4 OOFA 431 CLRW IRB$W_UDR_ID(R9) 

10 AB D4 OOFE $36 20$: CLRL RABSW_RFATRS) 

14 AB 4 0101 43 CLRW RABSW_RFA+4(R8) 

FEF9' 1 0104 434 Rw RMSEXRM 

0107 435 


/ 
/ 
/ 
; 
: 
; 
: 
: 
; 
; 
f 
f 
; 
f 
i 
; 
; 
: 
; 
; 
; 
: 
: 
| 
| 
| 
| 
l 
‘( 
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RMSDISCONNECT3 - interfaces between rmsOdisconnect and rm3disconnect 
Calling sequence: 


entered via a@ case statement (branch) from rms$disconnect 
Input Parameters: 
none 
Implicit Inputs: 
none 
Output Parameters: 
none 
Implicit Outputs: 
none 


Routine Value: 
none 


Side Effects: 
just passing through 


RMSDISCONNECTS:: 
BSBW RMSDISCONNECT3B ore 
BRW RMS$D1SCOMMON 3; branch to common code to finish up 
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10D $79 
18 a7) i 
p crs > RMSEXTEND3 = extend for isam files 
160 475 : Calling sequence: 
190 +28 3 entered via a case statement (branch) from rms$extend 
0190p 478 : Input apenas: 
10D 479; r - address of fab/xab 
010D 480; r - extend quant? ty 
8190 rt} : r6 - 0 if no xab otherwise xab address 
010D 48s : Implicit Inputs: 
O10D 48S _— 
$10 486 : Output Parameters: 
SE ei 
81 0p 489 ; Implicit Outputs: 
Pe inte 
010D 49¢ t Routine Value: 
HE 
010D 495 : Side Effects: 
010D 496 ; just passing through 
010D 497; 
B88 38 Fo 
010D 500 RMSEXTENDS:: 
08 6B 010D 501 PUSHR #*M<R3> j push fab/xab addr since clobbered by rm$ex 
7E D& O10F 206 CLRL -(SP) 3 area zero is default 
56 DS 0111 50 TSTL R6 3; is there an xab 
046 13 #0113 504 BEQL 10$ ; if not use area default 
6—E 17 A3 00 B118 a02 MOVL XABSB_AID(R3), (SP) ; pickup area out of xab 
FEES* 30 0119 507 108: BSBW RMSLOCK_AREA ; returns bdb=r4, area_desc=r7 
OC ASB BE DdO O11C 508 MOVL (SP)+,FABSL_STV(R8) ; save level for next @rror check 
6— 50 £9 0120 599 BLBC —RO, 508 : if errors, get out 
53 6€ »D0 O12 510 MOVL (SP) ,R3 ; restore fab/xab address 
54 OD 3 g 213 PUSHL R4 3; save bdb 
1C A? DS 4 8 18 TSTL AREASL_NXT(R7) : check if next extent is undefined 
50 12 0128 14 BNEQ ; if not, error 
OC A& Re 12D 15 CLRL FABSL_STV(R8) ; no stv value 
FECD’ g 1 218 BSBW RMSEXTENDO : do extend, clodbers r4 
4¢ 50 € 1 1 BLBC - 3; check for errors and get out 
74 AY 56 OD 136 18 MOVL R6,1FBSL_EBK(R9) ; update eof 
53 04 D 13A 1 MOVL oR ; restore fab/xab address 
10 A356 C 1? Y SUBL3 R1,R6,F ABSL_ALQ(R3) ; cale number of blocks in extent 
014 § : To keep the total allocation correct, we must distinguish between files 
14 3; that did not have this field defined when they were created, and those 
14 4 ; that did. If the TOTAL_ALLOC field is not zero, then it is a new file. 
14 5 ; If it is zero, check the VBN of the extents. if they are both zero, then 
14 6; the area has never been extended, and the allocation can be computed 
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133 7 ; correctly. 
D5 014 : TSTL AREASL_TOTAL_ALLOC(R7) ; is total allocation zero? 
1 146 0 BNEQ : if not, new file 
D 148 1 TSTL AREASL_CVBN(R7) ; is current extend zero? 
1 148 ¢ BNEQ ; if not, old file 
D 14D TSTL 1 toca NXTVBN(R7) ; is next extent zero? 
is 15 2 4 BNEQ 6 ; if not, old file 
CO 018 5.158:  ADDL2—-FABSL ,ALQ(R3) = 
1 § EASL tore “ALLOC(R7) new type file, accum total alloc 
co 13 16$: ADDL2 FASS L eAEACR3) 7PABSL STV(RB) ; accumulate in fab 
DO Q1 8 MOVL (R7 5 # e start vbn 
DO 16 239 MOVL leer’ ALOTRSD, AREASL _NXBLK(R7) ; remember # of blocks in extent 
DO S168 541 POPL ; restore bdb of area prologue vbn 
pS 0168 2%6 MOVL SDBSL ADDR(R4) RS ; pickup address of area descriptor 
0 016C 4 BSBW RMSMARSUM : calc check sum 
88 O16F 44 BI1SB2 nS. epste FLGS(R4) : set valid om dirty 
DO 0173 45 MOVL M_WRT_THRU,R3 3; write it out 
30 0176 546 BSBW RMSRELEAS ASE™ 
DO 0179 547 20$ POPL R3 
05 017C 548 RSB ; 
017D 549 30$: RMSERR LEX ; set error code for next extend already exi 
54 BEDO b18s 550 40$: POPL RG 
018 551 PUSHL RO 
0187 22¢ CLRL R3 ; just release 
FE74" 0 0189 55 BSBW RMSRELEASE ; do it 
50 BEDO O18C 554 POPL RO 3 pickup saved error code 
11 O18F 555 BRB 208 : 
DO 0191 556 50S: MOVL (SP) ,FABSL_STV(R8) ; stv value for error is fab/xab 
11 ae 4 BRB 20$ 
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RMS$GET3 = interface to aneetint 
RMSFIND3 - interface to RMS$GET3B for find operation 


Calling sequence: 
entered via a case statement (branch) from rms$get (find) 
Input Parameters: 
none 
Implicit Inputs: 
none 
Output Parameters: 
none 
Implicit Outputs: 
none 


Routine Value: 
none 


Side Effects: 
just passing through 


RMSGETS3:: 


DWOO FF 2a 


uw 
Sad 


20$: 


Q 
Q 
Q 
Q 
0 
Q 
0 
Q 
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Q 
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(eal al al “al *ah VAL VAL Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab AD AD AD AD AD AD AD AD AD AL Ab Ab hb db db eb dh Ab ab bead 
SDOOCOOOOO0O OOOO OO 000 00 0000000009 09 09 SI NIN SII NIOA AD PAA AAAO 


DOUWTS 


RABSW_RSZ(R8B) ; init record size 


RMSF IND3:: 
BBC #1FBSV_RU_RECVR,- ; if the current operation has been 
IFBSB_RECURFLGS(R10),5$ ; done within the context of a Recovery 
MOVZBL #RJRS_FIND,-(SP) ; Unit ROLLBACK, then call the common 
JSB RMSRU_RECOVER ; RU ROLLBACK routine to direct the 
BRB 208 ; UNDO operation, and then go finish up 
BBSC #IRBSV_PUTS_LAST,- ; clear the last operation was a 
3 sequential $PUT fla 
BBSC #1RB$V_UPDATE,(R9),10$ ; clear last operation was SUPDATE flag 
10$: BSBW RM$GET3B ; get/find the record 
BRW RMSEXRMS 3 and exit rms 
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RMSIALLO3 = interface xab_scan to the routine which processes the allocation xab 
RMSIKEYO3 = interface xab_scan to the routine which processes the key xab. 
RMS$SISUMOS = interface xab_scan to the routine which processes the summary xab. 


Calling sequence: 
entered via a case statement (branch) from rm$xab_scan 


Input Parameters: 
none 


Implicit Inputs: 
none 

Output Parameters: 
none 

Implicit Outputs: 
none 

Routine Value: 


none 


Side Effects: | 
just passing through 


s++ 


; WSTALLES - interface xab_scan to the routine which processes the 


fale le lelelelelalealelelelelelelelelelelealealelol ol wlelelolelelelelelelelelolelelelelelalelelealealealelelel ela) el al aia) 


aD and an acd ca and ce ed ec ed ee ceed ee en ee ce ee co ce ce ce ee ae ce ce en ee eB ee ee en cee en ed eed ced ee th en cd ee een eee eed ee ee ee eee ee eed ec ed ec eed ec 
TOO OOOOOOCOKNKNOOCOOCCWWWWWVIVIVOVIVDVIVOIVOIVOIVOIVIVIVOVOVIVIVOVIOVIVOIOIVIVIOVOVIVIVIOOVIVOIVOOIDW 


NEMO OOOO OOOOOVOVNEMO OOOO OOOOOOOODOOOVOOVOOOVOOOVOODOOVOVOOOVOVOOOOOONO 
DD. DED. DED DEDEDE DDD DD DDD DDD DD DPA PAA A AAA AAAAAAA AAA AAA A AAA AAAO 


AOADMMMNGMUA MUTI ES BBB EEE EB BWW NWAINNIIROPOPOPOPURPONOPN OOOO 
RW ODONAUEWN OOD NAUE WN OOD NAUE WN OOO NOU EWN OOM NOULS WN ODO NIO 


; allocation xab's for index seq files. 
RMSIALLOS: : 
52 5C 00 MOVL AP,R2 3; save ap 
53 OD PUSHL R 
OOOO00000'EF 16 JSB RMS$XALLO3 
5E 04 co ADDL2 #4,SP 
1E 11 BRB ISUM10 
the 
: RMSIKEYO3 - interface xab_scan to the routine which processes the key xab. 
RMSIKEYO3:: 
ee en MOVL AP,R2 3; save ap 
53 ~OD PUSHL 
OO0O00000'EF 16 JSB RMSXKEYO3 
5E 04 C0 ADDL2 #4,SP 
O— 11 BRB 1SUM10 
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109 663 
109 664 ;++ 
109 665 ; 
8108 608 ; RMSISUMO3 - interface xab_scan to the routine which processes the summary xab. 
0109 668 ;-- 
0109 669 
0109 670 RMSISUMO3:: 
52 5C DO Q1D9 671 MOVL AP,R2 3; save ap 
18 BB 01DC ere PUSHR #*M<R3,R4> 3; push parameters 
QOOOOOOOO'EF 16 ODE 67 JSB RM$XSUMO3 
5E 08 + 164 674 ADDL2 4#8,SP 
0650 € 1E7 675 ISUM10: BLBS RO, 1SUM20 
Oc AB «6553)06«6—(O COTEA) = s 676 MOVL R3,FABSL_STV(R8) 
8E D5 OEE 677 TSTL (SP) + 
st (Se 0 O1FO 678 ISUM20: MOVL R2,AP 3; restore ap 
05 O1F3 679 RSB 
O1F4 680 
O1F4 681 
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p++ 

: RMSOPEN3 - interfaces between rmsOopen and rm3open 
Calling sequence: 

3 entered via a case statement (branch) from rm$open 


3; Input Parameters: 
none 
ssiabig EnGUCES 
5 Apps 
ne 
Implicit Outputs: 
none 
Routine Value: 
none 


Side Effects: | 
just passing through 


RMSOPEN3:: 
FEO9" 30 BSBW RMSOPEN3B 
08 50 =CoéEB LBS RO,10$ 
50 DD PUSHL 
FEO1" 30 BSBW RMSCLOSE3 
50 8ED0 POPL R 
OOOOOO000'EF 17 10$: JMP RMSCOPRIN 


pe fm fn fan fn ofa fa lola lololololololeleloleloleololololelelelelolelelololalo) 
NOM A HP Ss Ss Ss SS 6 Ss Ss Ss ss Ss ss ss s  - -s Ss 
COT nooo 
fe Seale Pde Dt et ot et et ot ot ot et et et et et et et et et et et et et et ee 
NNN NPA AAA AAA AAAAAAAAAO 
3 SH SH HOODOO DOOCOOCOSOOWOOOOOOOONO 

CON AUS WN OOO NAUE WN $9 OD NAME WN OOONOUE Ww 
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RMSPUT3 = interfaces between rmsOput and rm3put 
Calling sequence: 


entered via a case statement (branch) from rms$put 
Input Parameters: 
none 
Implicit Inputs: 
none 
Output Parameters: 
none 
Implicit Outputs: 
none 


Routine Value: 
none 


Side Effects: 
just passing through 


RMSPUTS:: 
BBC 


PWNWAAINIGMINDMINDNININID 2 2 2 Ff HM OOCOCOOCOCOCOCOCOOOCOCOCCOCOCOCOOOOCOOOOOOOOOO 
OM SPOAOOWM SOO AXA S$ MO OON— MM & 09000900 00 00 00 09 C9 09 00 00 00 C9 C9 CO CO COC CD CD CO CD CD CDC 
SLEW ww NN 


Sat bat bt | ak oat oat Ot oat oat ot ont oat oa ale a la wal al wales wal al eal ae oe oe oe oF oe ov oe or ie ee ee er eer ere 
PR OODNOA NEWRY 0 OD NAMEN O OD NAME WWM 0 ODNOAUE WIN" OOONAUS WO 


COOOCOCOOOCOOCOCOCOCOOCOOSOOSOSOSOOQVWOCCOOCCOCOCCOOOCOCOOOOOOOoOoOOO 


00 €1 #IFBSV_RU_RECVR,- ; if the current operation has been 
OB 00A1 CA IFBSB_ RECORFLGS<R10), 10$: done within the context of a Recovery 
9A MOVZBL #RJRS$_PUT,-(SP) 3; Unit ROLLBACK, then call the common 
00000000‘ EF 16 JSB RMSRU_ “RECOVER ; RU ROLLBACK routine to direct the 
er 6 BRB PUF2 ~ ; UNDO operation, and then go finish up 
FDE4’ 30 10$: BSBW RMSPUT3B ; put the record 
50 DD PUSHL RO 3; Save status 
05 50 =«€9 BLBC RO,UNLOCK2 3 always unlock on errors 
10 04 AB 12 «€0 UNLOCK: BBS #RABSV_ULK,RABSL_ROP(R8) ,PUF; don’t unlock if manual unlock 
UNLOCK2: 
oOo fp 63 BBCC #IRBSV_UNLOCK_RP,(R9),- ; if there isn't any record to unlock 
+3 PUF 3; then don't adiaek any record 
51 778A 0 MOVL  IRBSL_PUTUP_VBN(R9) .R1 ; get vbn 
52. 0080 (9 3¢ MOVZ2WL IRBSW7PUTUP-ID(R9),R2 : Set up id for unlock 
FDCA’ 30 BSBW RMSUNCOCK 3; unlock the record Cignore errors, 
3; record maybe not loc 
00B0 C9 = 4 PUF : CLRL IRB$L_UDR_VBN(R9) ; Having attempted a SPUT/SUPDATE 
OOBC C9 8 B4 CLRW TResu. UDR-ID(R9) ; there is no longer a current record 
01 4 POPR <RO> 3 restore status 
FDBD* 1 PUF 2: BRW RMSERRMS 3 and exit 
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Clear the next record positioning context information within the IRAB, 
and setup the key of reference from information in the RAB. 


4 774 
4 of? p++ 
4 6 : 
"4 of 3; RMSREWIND3 = isam rewind 
4 58 ; Calling sequence: ‘ 
? f ? : entered via a case statement (branch) from rms$rewind 
4 7? ¢ ; Input Parameters: 
024 783 ; none 
0 23 best implicit 1 
; Implicit Inputs: 
4 7 § 3 none 
024 787 ; 
024 788 ; Output Parameters: 
024 789 ; none 
024 790 ; 
024 791 ; Implicit Outputs: 
024 792 ; none 
024 793 ; 
024 794 ; Routine Value: 
024 795 ; none 
024 796 ; 
024 797 ; Side Effects: 
bse 798 ; just passing through 
024 799 ; 
gst BP 
024 : this routine does the indexed specific code for a rewind 
024 s but it was just too small and much easier in mars 
bs¢ 3 for it to go into another module 
024 
bse RMSREWINDS:: 
0069 26 E4 024 BBSC #IRBSV_PUTS_LAST,(R9),5$ ; clear the Last operation 
024 > was a pe sequential iH 
05 22 AA 05 E1 024 5$: BBC #1FBSV_BIO,IFBSB FAC(R105,10$ ; branch if not block i/o 
40 a9 01 00 024 MOVL #1, IRBSL_NRP_VBNTR9) 
05 8 : RSB ; all done if block i/o 
025 
8 5 
5 
6 5 
5 
025 
025 
a3 
5 
5 
5 
5 
6 
6 
6 
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0.09.00 09 09 09 00 09 Co G9 Cd Cd C0 G0 On Cd Od Co G2 Gd Cd Cd Cd C9 G9 Cd Cd Co Co Co 


PIRSPIPIPOPIPNIPINIPOPYPIMPNPINPININININD 


ASSUME IRBSL_CUR_VBN+4 €Q IRBSL_POS VBN 
ASSUME IRBSL-UDRVBN+4 EQ IRBSL~SIDR_VBN 
ASSUME IRBSU-CURID¢2 0 IRBSW"POS_ID 
ASSUME IRBSWUCURTID+4 £Q IRBSW-UDR-ID 
ASSUME IRBSWICUR"1D+6 EQ IRB$W-SIDR_ID 

0A8 oe 10$:  CLRQ  IRBSLCURTVBN(R9) 

0B0 ¢9 7¢ CLRQ I RBSL-UDR“VBN(R9) 

008 (9 «7c CLRQ = IRBSWTCURTID(R9) 

0¢ (9 «BG CLRW  IRBSW"CUR COUNT (R9) 

00c3 ¢9 AB 90 MOVB = RABSB“KRF TRB), IRB$B_CUR_KREF (R9) 
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CSB #IRBSV_EOF ,(R9) 


: zero out keybuffers 1 and 2 


WOVZUL 1FBSW_KBUFSZ(R10),RO 
MOVs #0, (SP) ,#0,RO,@IRBSL_KEYBUF (R9) 


16-SEP-1984 91:09: }¢ AX/VMS Macro V04-00 
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: This stream can no Lnger be explicitely positioned at the end-of-file 
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RMSRND_DEV 
This routine is called from RM$CREATE3B to determine if the 
indexed file is being created in a random access, non foreign device. 
It has to be done in a macro routine, since it is the only way 
the device characteristics bits can be defined. 


aeiay uence: 


se 

SRND_DEV () 

Input Parameters: 
IF AB 

Implicit Inputs: 
none 

Output Parameters: 
none 

Implicit Outputs: 
none 


Routine Value: 
- not a random device 
1 = random device 


Side Effects: 


Sete Fe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge 


RMSRND_DEV: : 
50 D4 CLRL RO ; Assume device is not random 
11 + €0 BBS #F ABSV_UFO,- 
OB 04 A8 FABSL_FOP(R8),10$ : branch if UFO 
18 €0 BBS #DEVSV_FOR,- . 
07 69 IFBSL_PRIM_DEV(R9),10$ ; branch if device foreign 
1c EY BBC #DEVSV_RND,= : 
03 69 IFBSL_PRIM_DEV(R9),10$ ; branch if device not random 
50 01 400 MOVL #1,R0 ; device is random 
05 10$: RSB 3 return 


PIPDPOPIPOPIPIPIPSPINIPYDPINPYNIPYPIPUDINPYPIPNYPINPINYPIPPOPUPYPIPOPIPUPPUPIPOPIPONUNY 
be te Je de dee es ee > > > > > > > > > > | 
FMMD ONVIWOMOOOOOAAOAOAAOAAOAAAAGOHAAOOOOHAAAAOAAOOOOO 
0000090009 09 09 09 09 09 SI NINN SIN NS SSP PPA AAA AAO IIIT 
OO NAME WIND CO ODNAUE WIN CO OOO NAU EWI O OONAU ES WN OOWNO 


COOCOCCOOCOCOCOOSCO OOOO OOCOOOOO OOOO OOOOOOOOOOO 
0.00 0d Gd C0 Cd Cd Cd Cd C9 OD CD CD CD Cd Cd Cd CD CD CD CD Cd G9 Od OD CD 09 CD CD CD CD CD 0D CD 0D: 
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OW YS \P \ P \ 0.000 000000 00 09 00 00 00 00 09 CD 00 G2 C0 09 G9 CD G9.09 C9 C9 CD CD OD CD 
AOFM 909 BOOP 0 28 08 8 8 nn rn 8 rn rn rn rn rn ro oo 
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RMSUPDATE3 = interfaces between rmsQupdate and rm3update 
Calling sequence: 


entered via a case statement (branch) from rms$update 
Input Parameters: 
none 
Implicit Inputs: 
none 
Output Parameters: 
non 
Implicit Outputs: 
none 


Routine Value: 
none 


Side Effects: 
just passing through 


Sete Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Se 


RMSUPDATES: : 
BBC #IFBSV_RU_RECVR,- ; if the current operation has been 
IFB$B_RECURFLGS(R10),5$ ; done within the context of a Recovery 
MOVZBL #RJRS_UPDATE,-(SP) ; Unit ROLLBACK, then call the common 
JSB RMSRU_RECOVER ; RU ROLLBACK routine to direct the 
BRB 15$ ; UNDO operation, and then go finish up 
5$: SSB #IRBS$V_UPDATE, (R9) set the update bit 


BBSC  #IRB$V-PUTS_LAST,(R9),10$ ; clear the last operation 
; was a put sequential flag. 


10$: JSB RMSUPDATE3B 3; update the record 
15$: PUSHL 3 save status 
., UNLOCK 3; go unlock the record if necessary 
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Symbol table 

$$.PSECT_EP 
RMST 


EASL_NXT 
AREASL_NXTVB 


VBN 
AREASL_TOTAL_ALLOC 
AREASW "DEQ 


ABSV~UFO 
F IBSC_LENGTH 
L-EXSZ 
BSL-LOC_ADDR 
$B~FAC 
BSB_RECVRFLGS 
L“EBK 
SL~IDX_PTR 
SL-PRIA_DEV 
B$V-RU_RECVR 
$u KBOF SZ 
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IR 

IRBSV_PPF_ IMAGE 

IRB$V~PUTS_LAST 
V-RESTART 


Coooo 
= ee 
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0000000E 


teekeene 
ekeeeeee 
00000057 
eeeekene 
ketene 
0000008C 
tketeene 
gkeeeeene 
000000DB 
eeekeeee 
ekeekeee 
00000107 
eeeeeeee 
ketene 
eeeteene 
eeeekene 
aeeekene 


0000010D R 


REET 


0000019A 
00000197 


RERKKERE 
RERKREER 


00000189 
000001C9 
000001D9 


eeeeeene 
eeeeeeee 
000001F4 
eeeteene 
teeeeeee 
00000208 
eeeneeee 
eeeeeene 
00000243 
0000027C 


ReRERAKE 
RRRKKEEE 
0000028F 
Raeeetene 
Reeeeeee 
kaeeeenee 
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| Symbol table =SEP-1984 16:24:24 CRMS.SRCIRMSFAC CE.MAR;1 (25) 
UNLOCK 0000221 R 1 
UNLOCK2 00828 R 8} 
x AID = it 1 
XABSC_ALL = 00000014 
KABSC_ALLLEN = 00000020 
XABSC_CXR = 00000021 
KABSC_CXRLEN = 00000054 
XABSC_KEY = 00000015 
KABSC- one wien v2 = 00000040 
XABSC = Benne ne 
KABSC SURLEN = 0000000C 
XABCR 00000000 R 81 
XeCEC_OPNALL teeeeeee =X 01 
XBCSC_OPNKEY teeeeeee =X = 01 
XBCSC_OPNSUM3 eeneeeee =X = 01 
XBCS$C~ XCONNO3 teeeeeee =X 01 
XCONNO3_ARGS QO000000A R 01 
¢wewerenaes mene eeee + 
! Psect synopsis ! 
¢ermeroeoeoceoeoees eooece 
PSECT name Allocation ©SECT No. Attributes 
, a. 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMSOF ACE 00000283 (¢ 691.) 01 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC LONG 
SABSS 00000000 ¢ 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
oo & 
! ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization — #6 00:00:00.07 00:00:01.07 
Command processing 138 00:00:00.72 00:00:05.51 
Pass 1 409 00:00:15.25 00:00:46.72 
Symbol table sort 0 Oo bo 08° es 00:00:04.10 
Pass 2 163 00:00:03.62 00:00:11.59 
Symbol table output 16 00:00:00.16 00:00:00.75 
Psect synopsis output 1 00:00:00.02 00:00:00.30 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 765 00:00:22.05 00:01:10.05 
The working set Limit was 1650 pages. 
88691 bytes (174 pages) of virtual memory were used to buffer the intermediate code. 
There were 90 pages of symbol table space allocated to hold 1644 non-local and 56 local symbols. 
932 source lines were read in Pass 1, producing 16 object records in Pass 2. 
30 pages of virtual memory were used to define 29 macros. 
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! ; Macro Library statistics ! 
+ 


Macro Library name Macros defined 
-8255SDUA28: eo -OBJJRMS. mY 1 19 
“$255$DUA28: JJLIB.MLB;1 0 
“$255$DUA28: Eeysi IBISTARLET. MLB; 2 6 

TOTALS (all Libraries) 25 


1747 GETS were required to define 25 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RM3FACE/OBJ=OBJ$:RM3FACE MSRC$:RM3FACE/UPDATE=(ENH$:RM3F ACE) +EXECML$/LIB+LIB$:RMS/LIB 
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